﻿Imports Microsoft.Office.Tools.Ribbon

Public Class Ribbon

    Private Sub Ribbon_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load

    End Sub

    Private Sub BtTecentMap_Click(sender As Object, e As RibbonControlEventArgs) Handles BtTecentMap.Click
        Dim Frm As New FrmLonLat
        Frm.Show()
    End Sub
End Class
